﻿
Imports xmlctrl
Imports xhtmlctrl
Imports elpmis

Namespace lpmsservFunctions
    'parameters, NA
    'return, var, a new pre control
    Public Class precreator
        Inherits internalFunction

        Public Class parameters
        End Class

        Public Sub New()
            MyBase.New("xhtml.pre.create")
        End Sub

        Protected Overrides Function invoke(ByVal ctx As context, ByRef output As bare_variable) As Boolean
            output = New bare_variable(typeDefination.var, currentContext().createControl(New pre()))
            Return True
        End Function
    End Class
End Namespace
